(defparameter *general-log* (string ""))

; Escribe el texto que recibe como parametro a un fichero log
(defun escribe-a-fichero ()
;  (let ((ruta (concatenate 'string (String  (get-universal-time)) "_mano.log"))
  (let ((ruta-general (concatenate 'String (write-to-string (get-universal-time)) "_general.log"))
	)
    (with-open-file (stream ruta-general :direction 
			    :output
			    :if-exists :overwrite
			    :if-does-not-exist :create)
		    (format stream *general-log*)
		    )
    )
  )

;Metodo para resetear informacion de buffers
(defun resetea-buffers ()
  (setf *general-log* (string ""))
  )
;Metodo para aniadir informacion al buffer *general-log*
(defun escribe-en-general-log (texto)
  (setf *general-log*
        (concatenate 'string
                     *general-log*
                     texto)
        )
  )